Sales Report

library(tidyverse)
library(lubridate)
library(tidyquant)
library(plotly)

ProTip: When using TOC, make sure to start with H1 headers, whih are used to generate the TOC

source("01_Scripts/plot_sales.R")

bike_orderlines_tbl <- read_rds("00_Data/bike_sales/data_wrangled/bike_orderlines.rds")

interactive <- FALSE

1 Total Sales Charts

1.1 Quarterly Sales Trends

plot_total_sales(unit = "quarter", interactive = interactive)

1.2 Monthly Sales Trends

plot_total_sales(unit = "month", interactive = interactive)

1.3 Weekly Sales Trends

plot_total_sales(unit = "week", date_format = "%Y-%m-%d", interactive = interactive)

2 Category Sales Charts

2.1 Road

2.1.1 Quarterly

plot_categories(category_1 = "Road",
                ncol = 1,
                unit = "quarter",
                interactive = interactive)

2.1.2 Monthly

plot_categories(category_1 = "Road",
                ncol = 1,
                unit = "month",
                interactive = interactive)

2.1.3 Weekly

plot_categories(category_1 = "Road",
                ncol = 1,
                unit = "week",
                interactive = interactive)

2.2 Mountain

2.2.1 Quarterly

plot_categories(category_1 = "Mountain",
                ncol = 1,
                unit = "quarter",
                interactive = interactive)

2.2.2 Monthly

plot_categories(category_1 = "Mountain",
                ncol = 1,
                unit = "month",
                interactive = interactive)

2.2.3 Weekly

plot_categories(category_1 = "Mountain",
                ncol = 1,
                unit = "week",
                interactive = interactive)